home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 033a / vbbs530.zip / START.V < prev    next >
Text File  |  1991-11-06  |  2KB  |  113 lines
  1. $p = $flags instr N
  2. testval $p <> 0 notnewuser
  3. dbgroup e
  4. db 1
  5. buffer clear
  6. $p = "Hello " & $handle & "!"
  7. buffer append $p
  8. $p = "Welcome to " & $bbsname & !
  9. buffer append $p
  10. buffer append "We hope you will find your visit here enjoyable!"
  11. $p = "-" & $sysop & " (SysOp)"
  12. buffer append $p
  13. buffer append ""
  14. buffer append $vconfig1
  15. xsave $user "New User" $bbsname 0 "" $node
  16. setflags N on
  17. # notnewuser
  18. ts $norm
  19. tr
  20. sysinfo
  21. ts $norm
  22. $s = "Welcome to " & $bbsname
  23. jc $s 67
  24. if $ansi = ON then
  25. tr "┌─────────────────────────────────────────────────────────────────────┐
  26. tr "│ " $flash $s $norm " │"
  27. tr "└─────────────────────────────────────────────────────────────────────┘
  28. else
  29. tr
  30. tr "  " $s
  31. tr
  32. endif
  33. listcallers 5
  34. tr
  35. $p = $flags instr A
  36. testval $p <> 0 skipauto
  37. autopost
  38. # skipauto
  39. checkvote
  40. tr $red
  41. dbgroup e
  42. db 2
  43. $q = $highdb + 1
  44. # looknext
  45. search $q 1
  46. test $result = out done4
  47. $q = $search
  48. load $q /q
  49. $z = $subject left 7
  50. test $z <> "FileReq" notasyscmd
  51. $f = $subject mid 9
  52. $f = $f left 12
  53. $p = $f instr " " - 1
  54. ifval $p <> 0 then
  55.   $f = $f left $p
  56. endif
  57. $n = $subject mid 23
  58. $n = $n left 5
  59. $b = $subject mid 29
  60. $b = $b left 8
  61. $n2 = $fromnode
  62. tr
  63. tr "File Request: " $f " (" $b " bytes) from @" $n
  64. tr "By: " $from " #" $fromno " @" $fromnode
  65. testval $fromnode <> $node netreq
  66. testval $n = $node donewithit
  67. # netreq
  68. rr $key AD "<A>pprove/<D>isapprove: "
  69. tr
  70. test $key = D donewithit
  71. testval $fromnode <> $node sendupfile
  72. save 1 $subject $bbsname 0 "" $n
  73. go donewithit
  74. # sendupfile
  75. netreq $req F 900
  76. dbgroup f
  77. do $i = 1 $dbnumber
  78. testval $i = $req nextdb
  79. db $i
  80. search 1 5 $f
  81. test $result = out nextdb
  82. load $search
  83. $f1 = $dbpath & \ & $attfile
  84. db $req
  85. $f2 = $dbpath & \ & $attfile
  86. resave 1 $subject $bbsname $size $attfile $n2
  87. shell "copy " $f1 " " $f2
  88. tr
  89. tr "Copied from " $f1 " to " $f2
  90. $i = $dbnumber
  91. # nextdb
  92. db $i
  93. loop
  94. dbgroup e
  95. db 2
  96. go donewithit
  97. # notasyscmd
  98. tr $subject " " $dbdate " " $dbtime
  99. # donewithit
  100. del $q
  101. go looknext
  102. # done4
  103. dbgroup e
  104. db 1
  105. search 1 1
  106. test $result = out nomail
  107. tr
  108. tr "You Have Mail Waiting."
  109. tr
  110. # nomail
  111. random
  112.  
  113.